home *** CD-ROM | disk | FTP | other *** search
/ The Arsenal Files 6 / The Arsenal Files 6 (Arsenal Computer).ISO / wildcat / mbox112.zip / ABCNVRT.WCX (.txt) < prev    next >
Wildcat! WCX  |  1995-10-11  |  1KB  |  87 lines
  1. '! Decompiled with wccNosy version 4.20f (freeware)
  2. '! Input File: in.wcx  1381 bytes  01/28/123  08:37:10pm
  3. '! Code Segment Size  :803 bytes
  4. '! Data Segment Size  :4682 bytes
  5. '! String Segment Size:578 bytes
  6. '! Compiled with WCC version 4.10
  7.  
  8.       Type Type26
  9.         s0 As String*70
  10.         s70 As String*70
  11.         w140 As Word
  12.       End Type
  13.  
  14.       Dim s4463 As String
  15.       Dim s4467 As String
  16.       Dim s4471 As String
  17.       Dim s4475 As String
  18.       Dim s4479 As String
  19.       Dim i4483 As Integer
  20.       Dim s4485 As String
  21.       Dim i4489 As Integer
  22.       Dim sr4491 As SearchRec
  23.       Dim t26_4540 As Type26
  24.  
  25.       s4463 = InputMask("Directory for ABnnnnnn.DAT files:", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", "", 1213417543)
  26.       If Exists("mailbox.cfg") Then
  27.         Open "mailbox.cfg" For Input As 1
  28.       Else
  29.   107   Print "ERROR: Unable to locate MAILBOX.CFG file."
  30.         WaitEnter 
  31.         Stop 
  32.       End If
  33.   122 Input #1, s4467
  34.       Input #1, s4467
  35.       Input #1, s4467
  36.       Input #1, s4467
  37.       Input #1, s4467
  38.       Input #1, s4471
  39.       Close 1
  40.       If Right(s4463, 1) <> "\" Then
  41.         s4463 = s4463 + "\"
  42.       End If
  43.   206 If Right(s4471, 1) <> "\" Then
  44.         s4471 = s4471 + "\"
  45.       End If
  46.   243 Print "@0F@This program will read data from ascii files in @0A@"; s4463
  47.       Print "@0F@and store in the data in Cynosure Mailbox Address Book files"
  48.       Print "@0F@in @0A@"; s4471; "@0F@."
  49.       Print
  50.       Print "@8C@Backup your files first!"
  51.       Print
  52.       If InputYesNo("@0C@Proceed?", -1) Then
  53.         t26_4540.w140 = 0
  54.         s4485 = s4463 + "AB??????.DAT"
  55.         i4489 = FindFirst(s4485, 0, sr4491)
  56.   360   Do While i4489 = 0
  57.           s4475 = s4463 + sr4491.Name
  58.           i4483 = Val(Mid(sr4491.Name, 3, 6))
  59.           Print "@0F@Found address book for user #"; i4483; " ("; sr4491.Name; ")"
  60.           Open s4475 For Input As 1
  61.           s4479 = s4471 + Str(i4483) + ".ADF"
  62.           If Exists(s4479) Then
  63.             Print "@0C@This user already has a Cynosure Mailbox ADF file!"
  64.             Print "@0C@Skipping conversion for this user."
  65.           Else
  66.   542       i4483 = 1
  67.             Open s4479 For Random As 2 Len = 142 '! This value should probably be replaced with a "SizeOf" expression
  68.   568       Do While Not EOF(1)
  69.               Input #1, s4467
  70.               t26_4540.s70 = Trim(Left(s4467, 25))
  71.               t26_4540.s0 = Mid(s4467, 26, 1213417543)
  72.               Print "@07@ #"; i4483; ". "; t26_4540.s0; " ("; t26_4540.s70; ") converted."
  73.               Put 2, i4483, t26_4540 '! 142 bytes
  74.               i4483 = i4483 + 1
  75.             Loop
  76.   722       Close 2
  77.           End If
  78.   727     Close 1
  79.           i4489 = FindNext(sr4491)
  80.         Loop
  81.   749   Print
  82.         Print "@0F@No more files found."
  83.         Print "Operation complete."
  84.       End If
  85.   769 WaitEnter 
  86.       Stop 
  87.